UVa/579 - Clockhands/p579.~dpr

   1 program p579;\r
   2 \r
   3 {$APPTYPE CONSOLE}\r
   4 \r
   5 uses\r
   6   SysUtils;\r
   7 \r
   8 procedure leer(var hora : integer; var minuto : integer);\r
   9 var\r
  10   entrada : string;\r
  11 begin\r
  12   readLn(entrada);\r
  13   hora := strToInt(copy(entrada, 1, pos(':', entrada) - 1));\r
  14   delete(entrada, 1, pos(':', entrada));\r
  15   minuto := strToInt(entrada);\r
  16 end;\r
  17 \r
  18 var\r
  19   h, m : integer; //hora y minuto\r
  20   ah, am : double; //angulos que hay entre las 12 en punto y la hora y el minuto\r
  21 \r
  22 begin\r
  23   leer(h, m);\r
  24   while (h + m > 0) do\r
  25     begin\r
  26     ah := h * 30;\r
  27     am := m * 6;\r
  28     ah := ah + (30 * (10 - m) / 6);\r
  29     writeLn(abs(ah - am));\r
  30     leer(h, m);\r
  31     end;\r
  32 end.\r